Univers Interactif 3/INTERACTIF.BIN/mac/Planete.net/Internet Confirmés_Vrac/HyperWais.sea/HyperWais/cards.xml

Text File | 1993-09-13 | 184KB | 3,718 lines

card_6857.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>6857</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6922.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>191</left>
            <top>203</top>
            <right>483</right>
            <bottom>240</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais-sources</name>
        <script>on mouseWithinballoon "This field contains the path of the source folder on your "¬& "disk, this is not modifiable and is automatically set by HyperWais."end mouseWithin</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>191</left>
            <top>242</top>
            <right>483</right>
            <bottom>260</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais-documents</name>
        <script>on mouseWithinballoon "This field contains the path of the document folder on your "¬& "disk, this is not modifiable and is automatically set by HyperWais."end mouseWithin</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>191</left>
            <top>267</top>
            <right>484</right>
            <bottom>284</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais-questions</name>
        <script>on mouseWithinballoon "This field contains the path of the questions folder on your "¬& "disk, this is not modifiable and is automatically set by HyperWais."end mouseWithin</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>140</left>
            <top>1</top>
            <right>380</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>edit_preferences_label</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>25</left>
            <top>203</top>
            <right>191</right>
            <bottom>221</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais_sources_label</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>25</left>
            <top>242</top>
            <right>191</right>
            <bottom>260</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais_documents_label</name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>25</left>
            <top>267</top>
            <right>191</right>
            <bottom>284</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>wais_questions_label</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>42</left>
            <top>58</top>
            <right>124</right>
            <bottom>76</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_name_label</name>
        <script></script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>42</left>
            <top>81</top>
            <right>124</right>
            <bottom>99</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_address_label</name>
        <script></script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>42</left>
            <top>104</top>
            <right>124</right>
            <bottom>122</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>tcp_port_label</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>124</left>
            <top>58</top>
            <right>444</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_name</name>
        <script>on mouseWithinballoon "This field contains the TCP/IP name of the 'firewall', for "¬& "example 'welchlab.welch.jhu.edu'."end mouseWithin</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>124</left>
            <top>81</top>
            <right>444</right>
            <bottom>99</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_address</name>
        <script>on mouseWithinballoon "This field contains the TCP/IP address of the 'firewall', for "¬& "example '128.220.59.10'."end mouseWithin</script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>124</left>
            <top>104</top>
            <right>444</right>
            <bottom>122</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>tcp_port</name>
        <script>on mouseWithinballoon "This field contains the TCP/IP port number of the 'firewall', for "¬& "example 210, this is also the default port number."end mouseWithin</script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>32</top>
            <right>213</right>
            <bottom>52</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>source_label</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>23</left>
            <top>174</top>
            <right>176</right>
            <bottom>194</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>folder_label</name>
        <script></script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>122</left>
            <top>129</top>
            <right>140</right>
            <bottom>141</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Firewall</name>
        <script>on mouseUp-- toggle the "Firewall" check boxif the hilite of me is true thenset the hilite of me to falseelse if the hilite of me is false thenset the hilite of me to trueend if-- if we want to use the firewall then we need to-- verify that the information we need is thereif the hilite of button "Firewall" is true thenif ( card field "ip_name" is empty and card field "ip_address" ¬is empty ) or ( card field "tcp_port" is empty ) thenanswer "You need to specify an IP Name or an IP Address and a TCP Port number to be able to use an Internet 'firewall'" with "OK"set the hilite of me to falseexit mouseUpend ifend ifend mouseUpon mouseWithinballoon "Tick this box if you want to use the 'firewall' machine "¬& "described above."end mouseWithin</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>137</left>
            <top>128</top>
            <right>308</right>
            <bottom>145</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>firewall_label</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>5</id>
        <text>Preferences</text>
    </content>
    <content>
        <layer>card</layer>
        <id>8</id>
        <text>Wais Sources Folders:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text>Wais Documents  Folder:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>10</id>
        <text>Wais Questions Folder:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>11</id>
        <text>IP Name:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>12</id>
        <text>IP Address:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>13</id>
        <text>TCP Port:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>20</id>
        <text>Wais Folders</text>
    </content>
    <content>
        <layer>card</layer>
        <id>19</id>
        <text>'Firewall' Information</text>
    </content>
    <content>
        <layer>card</layer>
        <id>27</id>
        <text>Use Firewall</text>
    </content>
    <content>
        <layer>card</layer>
        <id>17</id>
        <text>210</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>bugs:HyperWais:wais-sources</text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text>bugs:HyperWais:wais-documents</text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>bugs:HyperWais:wais-questions</text>
    </content>
    <name>edit_preferences</name>
    <script>on initializeCard-- wais foldersglobal WaisSourcesFolderglobal WaisDocumentsFolderglobal WaisQuestionsFolder-- get our current preferencesput card field "wais-sources" of card "edit_preferences" into WaisSourcesFolderput card field "wais-documents" of card "edit_preferences" into WaisDocumentsFolderput card field "wais-questions" of card "edit_preferences" into WaisQuestionsFolder-- first check to see if these folders existif there is a folder WaisSourcesFolder and WaisSourcesFolder is not empty thenput 1 into sourcesFolderOkelseput 0 into sourcesFolderOkend ifif there is a folder WaisDocumentsFolder and WaisDocumentsFolder is not empty thenput 1 into documentsFolderOkelseput 0 into documentsFolderOkend ifif there is a folder WaisQuestionsFolder and WaisQuestionsFolder is not empty thenput 1 into questionsFolderOkelseput 0 into questionsFolderOkend if-- grab the path name of the stackput word 2 of the long name of this stack into pathNameput the length of pathName - 1 into pathNameLengthput character 2 to pathNameLength of pathName into pathName-- grab the length of the name of the stackput word 2 of the name of this stack into stackNameput the length of stackName into stackNameLengthput pathNameLength - stackNameLength into pathNameLengthput character 1 to pathNameLength + 1 of pathName into pathNameif sourcesFolderOk = 0 thenput pathName & "wais-sources" into WaisSourcesFolderif there is a folder WaisSourcesFolder thenput WaisSourcesFolder into card field "wais-sources" ¬of card "edit_preferences"elseput empty into card field "wais-sources" ¬of card "edit_preferences"put empty into WaisSourcesFolderend ifend ifif documentsFolderOk = 0 thenput pathName & "wais-documents" into WaisDocumentsFolderif there is a folder WaisDocumentsFolder thenput WaisDocumentsFolder into card field "wais-documents" ¬of card "edit_preferences"elseput empty into card field "wais-documents" ¬of card "edit_preferences"put empty into WaisDocumentsFolderend ifend ifif questionsFolderOk = 0 thenput pathName & "wais-questions" into WaisQuestionsFolderif there is a folder WaisQuestionsFolder thenput WaisQuestionsFolder into card field "wais-questions" ¬of card "edit_preferences"elseput empty into card field "wais-questions" ¬of card "edit_preferences"put empty into WaisQuestionsFolderend ifend ifreturn 0end initializeCard---------------------------------------------------------</script>
</card>


card_7231.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>7231</id>
    <filler1>0</filler1>
    <bitmap>BMAP_7674.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>140</left>
            <top>1</top>
            <right>380</right>
            <bottom>29</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>edit_applications_label</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>46</left>
            <top>32</top>
            <right>157</right>
            <bottom>50</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>applications_label</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>252</left>
            <top>34</top>
            <right>280</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Save</name>
        <script>on mouseUp-- add a new document type/application to the summary list---- first check to see if there is a document type and and-- application in our entry fieldsif card field "document_type" is empty thenanswer "You need to specify a document type."exit mouseUpend ifif card field "application_name" is empty thenanswer "You need to specify an application."exit mouseUpend if-- if there is no file type, we just add '????'if card field "file_type" is empty thenput "????" into card field "file_type"end if-- 4 characters onlyif the length of card field "file_type" > 4 thenanswer "A file type cannot have more than 4 characters."exit mouseUpend if-- there are some types that are internally supported-- such as TEXT, WSRC, WCAT, PICT and MBIN,-- we ask the user if they want to override this?if card field "document_type" = "TEXT" or¬card field "document_type" = "WSRC" or¬card field "document_type" = "WCAT" or¬card field "document_type" = "PICT" or¬card field "document_type" = "JPEG" or¬card field "document_type" = "JFIF" or¬card field "document_type" = "JFIF-TBNL" or¬card field "document_type" = "TIFF" or¬card field "document_type" = "GIF" or¬card field "document_type" = "MBIN" thenanswer "This document type is internally supported, do you want to override "&¬"the internal support?" with "Yes" or "Cancel"-- did we cancel ?if it = "Cancel" thenexit mouseUpend ifend if-- put the card fields in variablesput card field "document_type" into documentTypeput card field "file_type" into fileTypeput card field "application_name" into applicationNameif the hilite of card button "macbinary" is true thenput 1 into macbinaryelseput 0 into macbinaryend ifput card field "application_summary" into applicationSummary-- check to see if there is already a line for this document type in-- the application summary, if there is, we just update the line in-- place and exitset the itemDelimiter to tabrepeat with i = 1 to the number of lines of applicationSummaryset cursor to busyget line i of applicationSummaryif the first item of it = documentType thenput documentType & tab & applicationName & tab & fileType ¬& tab & macbinary into line i of applicationSummaryput applicationSummary into card field "application_summary"exit mouseUpend ifend repeat-- the type was not found in our current application summary so we just-- append the new document type/application to itif character ( the length of applicationSummary ) of applicationSummary ≠ return¬and applicationSummary is not empty thenput applicationSummary & return into applicationSummaryend ifput applicationSummary &documentType & tab & applicationName & tab & fileType ¬& tab & macbinary into applicationSummary-- update the summary fieldput applicationSummary into card field "application_summary"end mouseUpon mouseWithinballoon "Click on this button to add the document type and application to the application summary."end mouseWithin</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>282</left>
            <top>34</top>
            <right>326</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Remove</name>
        <script>on mouseUp-- this removes the wait type handler pointed toset hilite of me to trueif cd fld "application_summary" is empty thenset the hilite of me to falseexit mouseUpend ifdisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of ¬cd field "application_summary" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "application_summary" thenset the hilite of me to falseexit mouseUpend ifput the clickLine into lineClickedput value(lineClicked) into documentTypeif doumentType = empty thenset the hilite of me to falseexit mouseUpend ifset the itemDelimiter to tabput the first item of documentType into documentType-- confirm deletion of the selected itemif the optionKey is not down thenanswer "Are you sure that you want to remove the application entry for "&¬"document type '"&documentType&"' from the list?" with "Cancel" or "OK"if it ≠ "OK" thenselect emptyset the hilite of me to falseexit mouseUpend ifend ifdelete lineClicked -- delete itset hilite of me to falseend mouseUpon mouseWithinballoon "Click on this button to remove an entry from the "¬& "application summary." & return & "To remove an entry, click on this "¬& "button, then click on the entry in the application summary."end mouseWithin</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>424</left>
            <top>34</top>
            <right>459</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>OK</name>
        <script>on mouseUpgo to card "query"end mouseUpon mouseWithinballoon "Click on this button to return to the 'Search Sources' "¬& "card."end mouseWithin</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>193</top>
            <right>458</right>
            <bottom>301</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>application_summary</name>
        <script>on mouseUp-- put up the information of the selected entryget the clickLineput it into myClickLineselect itput ( word 2 of myClickLine )  into iif i is empty thenexit mouseUpend if-- parse the lineset the itemDelimiter to tabget line i of card field "application_summary"put the first item of it into card field "document_type"put the third item of it into card field "file_type"put the second item of it into card field "application_name"put the fourth item of it into macbinaryif macbinary = 1 thenset the hilite of card button "macbinary" to trueelseset the hilite of card button "macbinary" to falseend ifend mouseUpon mouseWithinballoon "This field contains the application summary."end mouseWithin</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>70</top>
            <right>146</right>
            <bottom>88</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>document_type_label</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>122</top>
            <right>146</right>
            <bottom>140</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>application_name_label</name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>146</left>
            <top>70</top>
            <right>458</right>
            <bottom>88</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>document_type</name>
        <script>on mouseWithinballoon "This field contains the document type to associate with the application."end mouseWithin</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>146</left>
            <top>122</top>
            <right>458</right>
            <bottom>140</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>application_name</name>
        <script>on mouseUpsend mouseUp to card button "Select Application"end mouseUpon mouseWithinballoon "This field contains the name of the application to associate with the document type."end mouseWithin</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>328</left>
            <top>34</top>
            <right>422</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Select Application</name>
        <script>on mouseUp-- select an application and put it into the application-- card fieldanswer file "Select an Application:" of type "APPL"put it into applicationNameif applicationName is not empty thenput applicationName into card field "application_name"end ifend mouseUpon mouseWithinballoon "Click on this button to select an application."end mouseWithin</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>95</top>
            <right>146</right>
            <bottom>113</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>file_type_label</name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>146</left>
            <top>95</top>
            <right>458</right>
            <bottom>113</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>file_type</name>
        <script>on mouseWithinballoon "This field contains the file type which will be used to save the document."end mouseWithin</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>186</left>
            <top>34</top>
            <right>250</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Clear Entry</name>
        <script>on mouseUp-- clear the current entry fieldsput empty into card field "document_type" of card "edit_applications"put empty into card field "file_type" of card "edit_applications"put empty into card field "application_name" of card "edit_applications"set the hilite of card button "macbinary" of card "edit_applications" to falseend mouseUpon mouseWithinballoon "Click on this button to clear the entry fields."end mouseWithin</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>175</top>
            <right>174</right>
            <bottom>193</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>application_summary_label</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>148</top>
            <right>146</right>
            <bottom>166</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>macbinary_label</name>
        <script></script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>144</left>
            <top>149</top>
            <right>163</right>
            <bottom>164</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>macbinary</name>
        <script>on mouseUp-- toggle the "macbinary" check boxif the hilite of me is true thenset the hilite of me to falseelse if the hilite of me is false thenset the hilite of me to trueend ifend mouseUpon mouseWithinballoon "Tick this box if the document is in macbinary format  "¬& "and needs to be converted to be viewed or saved."end mouseWithin</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>Applications</text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text>Applications</text>
    </content>
    <content>
        <layer>card</layer>
        <id>7</id>
        <text>Document Type:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>8</id>
        <text>Application:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>15</id>
        <text>File Type:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>18</id>
        <text>Application Summary:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>20</id>
        <text>MacBinary:</text>
    </content>
    <name>edit_applications</name>
    <script>on initializeCardsend mouseUp to button "Clear Entry" of card "edit_applications"end initializeCardon closeCard-- initialize the flagput 0 into myFlag-- put the card fields in variablesput card field "document_type" into documentTypeput card field "file_type" into fileTypeput card field "application_name" into applicationNameif the hilite of card button "macbinary" is true thenput 1 into macbinaryelseput 0 into macbinaryend ifput card field "application_summary" into applicationSummary-- check to see if there are emtpy fieldsif documentType is not empty and ¬fileType is not empty and ¬applicationName is not empty thenput 1 into myFlagend if-- check to see if the user modified this entryset the itemDelimiter to tabrepeat with i = 1 to the number of lines of applicationSummaryset cursor to busyget line i of applicationSummaryif the first item of it = documentType and ¬the second item of it = applicationName and ¬the third item of it = fileType and ¬the fourth item of it = macbinary thenput 0 into myFlagexit repeatend ifend repeatif myFlag = 1 thenanswer "The entry was not saved, do you want to save it?"¬with "Cancel" or "OK"if it is "OK" thensend mouseUp to card button "Save"end ifend ifend closeCard</script>
</card>


card_5233.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>5233</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6047.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>142</left>
            <top>66</top>
            <right>462</right>
            <bottom>84</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>source-name</name>
        <script>on mouseWithinballoon "This field contains the source name."end mouseWithin</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>87</top>
            <right>462</right>
            <bottom>105</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip-name</name>
        <script>on mouseWithinballoon "This field contains the source name."end mouseWithin</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>108</top>
            <right>462</right>
            <bottom>126</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip-address</name>
        <script>on mouseWithinballoon "This field contains the source name."end mouseWithin</script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>129</top>
            <right>462</right>
            <bottom>147</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>tcp-port</name>
        <script>on mouseWithinballoon "This field contains the TCP/IP port number of the source, for "¬& "example 210, this is also the default port number."end mouseWithin</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>357</left>
            <top>34</top>
            <right>422</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Save Source</name>
        <script>on mouseUp-- this handler saves the source into a file---- the first part checks to see if there is enough-- data for our source-- the minimum being:--  - an ip-name or an ip-address--  - a tcp-port ( defaults to 210 )--  - a database-name---- the second part substitutes the database name for the filename-- if one does not exists-- it also appends the extension ".src" to the file---- the third part opens up the file and writes out the-- source description to a file---- the fourth part adds this source to the source list in the-- card 'query'-- wais folders to store sources, documents and questionsglobal WaisSourcesFolderglobal WaisDocumentsFolderglobal WaisQuestionsFolderif card field "ip-name" is empty or¬card field "ip-address" is empty thenanswer "You need to specify either an IP name or a TCP/IP address for a source."exit to hypercardend ifif card field "tcp-port" is empty thenanswer "You need to specify an IP port number for a source."exit mouseUpend ifif card field "database-name" is empty thenanswer "You need to specify a database name for a source."exit mouseUpend ifif card field "num-docs-to-request" is empty thenanswer "You need to specify a maximum number of documents to request for a source."exit mouseUpend if-- default the source nameif card field "source-name" is empty thenput card field "database-name" & ".src" ¬into card field "source-name"end if-- ask for the source file nameask "Save source:" with card field "source-name"put it into sourceName-- user did not enter anythingif sourceName is empty thenexit mouseUpend if-- prepend source folderput WaisSourcesFolder & ":" & sourceName into sourceName-- check for trailing .srcset the itemDelimiter to "."if the last item of sourceName ≠ "src" thenput sourceName & ".src" into sourceNameend if-- check to see if the source file already existsif there is a file sourceName thenset the itemDelimiter to ":"answer "Replace existing " & last item of sourceName ¬with "OK" or "Cancel"if it is "Cancel" thenexit mouseUpend ifend ifset the itemDelimiter to ":"put the last item of sourceName into card field "source-name"set the cursor to busyopen file sourceNamewrite "(:source" & return to file sourceNamewrite " :version" & space & "3" & return to file sourceNamewrite " :ip-name" & space & quote & card field "ip-name" & quote¬& return to file sourceNamewrite " :ip-address" & space & quote & card field "ip-address" & quote¬& return to file sourceNamewrite " :tcp-port" & space & quote & card field "tcp-port" & quote¬& return to file sourceNamewrite " :maintainer" & space & quote & card field "maintainer" & quote¬& return to file sourceNamewrite " :database-name" & space & quote & card field "database-name" & quote¬& return to file sourceNameif card field "confidence" is not empty thenwrite " :confidence" & space & card field "confidence" ¬& return to file sourceNameend ifwrite " :num-docs-to-request" & space & card field "num-docs-to-request" ¬& return to file sourceNamewrite " :cost" & space & "0.00" & return to file sourceNamewrite " :cost-unit" & space & ":free" & return to file sourceNamewrite " :description" & space & quote & card field "description" & quote¬& return to file sourceNamewrite ")" & return to file sourceNameclose file sourceNameif sourceName is not empty thenanswer "Add this source to the source list?" with "No","Yes"if it is "Yes" thenput card field "sources" of card "query" into sourceListput addSource(sourceName,sourceList) into card field "sources"¬of card "query"end ifend ifend mouseUpon mouseWithinballoon "Click on this button to save the source below to "¬& "a file."end mouseWithin</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>150</top>
            <right>462</right>
            <bottom>168</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>maintainer</name>
        <script>on mouseWithinballoon "This field contains the email address of the maintainer "¬& "of that source, for example '[e-mail]'."end mouseWithin</script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>171</top>
            <right>462</right>
            <bottom>189</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>database-name</name>
        <script>on mouseWithinballoon "This field contains the database name "¬& "of that source, for example 'omim'."end mouseWithin</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>289</left>
            <top>34</top>
            <right>355</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Open Source</name>
        <script>on mouseUp-- this handler loads the source into the fields---- first it asks for a file name---- then it cycles through reading the file-- and parsing it---- this is really sluggish and speed needs to be-- improvedglobal siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal descriptionput card field "wais-sources" of card "edit_preferences"¬into waisSources-- we can open either text or WAIStation format-- source filesput files(waisSources,"TEXT,WSRC") into waisSourceListget showList(waisSourceList,"Select the sources to add:",¬false,true,"Add,Cancel",0)-- if the user cancelled, we exitif line 1 of it = "Cancel" thenexit mouseUpend if-- get the returned selection listput line 2 of it into itemNumberput line itemNumber of waisSourceList into sourceNameput waisSources & ":" & sourceName into sourceNameif there is not a file sourceName thenset the itemDelimiter to ":"answer "Could not find the source file for: "& ¬the last item of sourceName &"."exit mouseUpend ifif sourceName is not empty thenset the itemDelimiter to ":"put the last item  of sourceName into card field "source-name"put parseSourceFile(sourceName) into waisErrorput siteName into card field "ip-name"put siteIP into card field "ip-address"put sitePort into card field "tcp-port"put maintainer into card field "maintainer"put databaseName into card field "database-name"put databaseMaxDocNum into card field "num-docs-to-request"put confidence into card field "confidence"put description into card field "description"end ifend mouseUpon mouseWithinballoon "Click on this button to load an existing source into "¬& "the fields below."end mouseWithin</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>192</top>
            <right>462</right>
            <bottom>210</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>num-docs-to-request</name>
        <script>on mouseWithinballoon "This field contains the maximum number of documents "¬& "to retrieve from that source."end mouseWithin</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>220</left>
            <top>34</top>
            <right>287</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>New Source</name>
        <script>on mouseUp-- clear out the fields ready for new inputput empty into card field "source-name" of card "edit_sources"put empty into card field "ip-name" of card "edit_sources"put empty into card field "ip-address" of card "edit_sources"-- default Z39.50 portput "210" into card field "tcp-port" of card "edit_sources"put empty into card field "maintainer" of card "edit_sources"put empty into card field "database-name" of card "edit_sources"-- default number of docs to requestput "25" into card field "num-docs-to-request" of card "edit_sources"put empty into card field "confidence" of card "edit_sources"put empty into card field "description" of card "edit_sources"end mouseUpon mouseWithinballoon "Click on this button to clear the fields ready for adding "¬& "a new source."end mouseWithin</script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>213</top>
            <right>462</right>
            <bottom>231</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>confidence</name>
        <script>on mouseWithinballoon "This field contains the confidence level for this source, "¬& "at this time, it is unused."end mouseWithin</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>142</left>
            <top>234</top>
            <right>462</right>
            <bottom>303</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>description</name>
        <script>on mouseWithinballoon "This field contains a description of this source."end mouseWithin</script>
    </part>
    <part>
        <id>31</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>140</left>
            <top>1</top>
            <right>380</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>edit_sources_label</name>
        <script></script>
    </part>
    <part>
        <id>32</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>66</top>
            <right>142</right>
            <bottom>84</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>source_name_label</name>
        <script></script>
    </part>
    <part>
        <id>34</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>87</top>
            <right>142</right>
            <bottom>105</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_name_label</name>
        <script></script>
    </part>
    <part>
        <id>35</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>108</top>
            <right>142</right>
            <bottom>126</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ip_address_label</name>
        <script></script>
    </part>
    <part>
        <id>36</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>129</top>
            <right>142</right>
            <bottom>147</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>tcp_port_label</name>
        <script></script>
    </part>
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>150</top>
            <right>142</right>
            <bottom>168</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>maintainer_label</name>
        <script></script>
    </part>
    <part>
        <id>38</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>171</top>
            <right>142</right>
            <bottom>189</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>database_name_label</name>
        <script></script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>192</top>
            <right>142</right>
            <bottom>210</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>doc_number_label</name>
        <script></script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>213</top>
            <right>142</right>
            <bottom>231</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>confidence_label</name>
        <script></script>
    </part>
    <part>
        <id>41</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>60</left>
            <top>234</top>
            <right>142</right>
            <bottom>252</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>description_label</name>
        <script></script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>424</left>
            <top>34</top>
            <right>459</right>
            <bottom>48</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>OK</name>
        <script>on mouseUpgo to card "query"end mouseUpon mouseWithinballoon "Click on this button return to the 'Search Sources' "¬& "card."end mouseWithin</script>
    </part>
    <part>
        <id>52</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>45</left>
            <top>32</top>
            <right>198</right>
            <bottom>52</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>source_label</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>17</id>
        <text>210</text>
    </content>
    <content>
        <layer>card</layer>
        <id>31</id>
        <text>Edit Sources</text>
    </content>
    <content>
        <layer>card</layer>
        <id>32</id>
        <text>Source Name:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>34</id>
        <text>IP Name:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>35</id>
        <text>IP Address:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>36</id>
        <text>TCP Port:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>37</id>
        <text>Maintainer:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>38</id>
        <text>Database Name:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>39</id>
        <text>Max Docs:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>40</id>
        <text>Confidence:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>41</id>
        <text>Description:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>52</id>
        <text>Source Description</text>
    </content>
    <content>
        <layer>card</layer>
        <id>25</id>
        <text>25</text>
    </content>
    <name>edit_sources</name>
    <script>on initializeCardsend mouseUp to button "New Source" of card "edit_sources"end initializeCard</script>
</card>


card_4690.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4690</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5056.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>6</left>
            <top>51</top>
            <right>507</right>
            <bottom>287</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>document</name>
        <script>on keyDownanswer "You may not modify this text"end keyDownon mouseWithinballoon "This field contains the document section. "end mouseWithin</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>422</left>
            <top>33</top>
            <right>451</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>OK</name>
        <script>on mouseUpgo to card "query"end mouseUpon mouseWithinballoon "Click on this button return to the 'Search Sources' "¬& "card."end mouseWithin</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>382</left>
            <top>33</top>
            <right>420</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Save</name>
        <script>on mouseUp-- current document number globalglobal resultDocNumglobal resultDocNum-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadlineif resultDocNum is empty thenanswer "The is no document to save."¬with "OK"exit mouseUpend if-- ask for the file name to save the document intoask file "Save Document:" with docHeadlineput it into documentName-- check if user canceled the operationif documentName is empty thenexit to hypercardend if-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", docType)¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document."¬with "OK"exit mouseUpend ifend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>264</left>
            <top>33</top>
            <right>330</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Add Section</name>
        <script>on mouseUp-- add the selected chunk of text as RF-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- document count global ( for current query )global docCount-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document number globalglobal resultDocNum-- relevance feedback entry numberglobal relEntryNum-- get the selected chunk of textget the selectedChunk-- check to see if it is emptyif it is empty thenanswer "To add a section of text as relevance feedback, you need to select it first."exit to hypercardend if-- is there something thereput the second word of it into startByteput the fourth word of it into endByte-- check that this is not just the cursor in the text-- with no selectionif startByte >= endByte thenanswer "To add a section of text as relevance feedback, you need to select it first."exit to hypercardend if-- make this a CT_byteput 1 into resultChunkType-- ajust the byte counts according to our offsetput startByte + ( card field "start_byte_count" - 1 ) into startByteput endByte + ( card field "start_byte_count" - 1 ) into endByte-- add the chunk as RFput RelFeedbackAdd(resultDocNum, docType, resultChunkType, startByte, ¬endByte) into waisErrorif waisError ≠ 0 thenanswer "An error occured while adding the document chunk as relevance feedback."¬with "OK"exit to hypercardend if-- prepare the RFEntry for the RF fieldput char 1 to 20 of docHeadline into RFEntryput "   " & relEntryNum & " " & RFEntry into RFEntryput RFEntry & "["&startByte&","&endByte&"]" & return into RFEntryput card field "feedback" of card "query" into dummyput dummy & RFEntry into RFEntryput RFEntry into card field "feedback" of card "query"end mouseUpon mouseWithinballoon "Click on this button to add the hilighted section to the "¬& "relevance feedback entries."end mouseWithin</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>332</left>
            <top>33</top>
            <right>380</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Add Doc</name>
        <script>on mouseUp-- add the document as RF-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- document count global ( for current query )global docCount-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document number globalglobal resultDocNum-- RF entry numberglobal relEntryNumif resultDocNum is empty thenanswer "There is no document to add as relevance feedback."¬with "OK"exit mouseUpend if-- set the chunk to CT_documentput 0 into resultChunkTypeput 0 into startByteput 0 into endByte-- add the entry to the RF arrayput RelFeedbackAdd(resultDocNum, docType, resultChunkType, startByte, ¬endByte) into waisErrorif waisError ≠ 0 thenanswer "An error occured while adding the document as relevance feedback."¬with "OK"exit mouseUpend if-- prepare the RFEntry for the RF fieldput char 1 to 20 of docHeadline into RFEntryput relEntryNum & " " & RFEntry into RFEntryput RFEntry & "[doc]" & return into RFEntryput card field "feedback" of card "query" into dummyput dummy & RFEntry into RFEntryput RFEntry into card field "feedback" of card "query"end mouseUpon mouseWithinballoon "Click on this button to add this document to the "¬& "relevance feedback entries."end mouseWithin</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>32</top>
            <right>96</right>
            <bottom>51</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>document_label</name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>475</left>
            <top>33</top>
            <right>498</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>16692</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>previous_section</name>
        <script>on mouseUp-- display previous 100 lines-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- some globalsglobal docLengthglobal resultDocNumglobal docHdlglobal docHdlSizeglobal docType-- set up our document chunk parametersput 1 into resultChunkType-- check so see if we are not already displaying the-- first bytesif card field "start_byte_count" - 1 = 0 thenanswer "There are no more characters to display" with "OK"exit to hypercardend ifput card field "start_byte_count" - 30001 into resultDocStartput resultDocStart + 29999 into resultDocEnd-- check to see if we dont go beyond the end of the documentif docLength < resultDocEnd thenput docLength into resultDocEndend if-- download the document chunkset cursor to busyput GetDoc(resultDocNum, docType, resultChunkType, resultDocStart, ¬resultDocEnd) ¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document chunk."¬with "OK"exit to hypercardend if-- put it into our document fieldput docHdl into card field "document"-- put some character counts onto our document cardput resultDocStart + 1 into card field "start_byte_count"put resultDocEnd + 1 into card field "end_byte_count"end mouseUpon mouseWithinballoon "Click on this button to go to the previous section of this "¬& "document."end mouseWithin</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>33</top>
            <right>474</right>
            <bottom>47</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>3584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next_section</name>
        <script>on mouseUp-- display next 30000 bytes-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- some globalsglobal resultDocNumglobal docHdlglobal docHdlSizeglobal docTypeglobal docLength-- set up our document chunk parametersput 1 into resultChunkType-- check so see if we are not already displaying the-- last bytesif card field "end_byte_count" - 1 = docLength thenanswer "There are no more characters to display" with "OK"exit to hypercardend ifput card field "start_byte_count" + 29999 into resultDocStartput resultDocStart + 29999 into resultDocEnd-- check to see if we dont go beyond the end of the documentif docLength < resultDocEnd thenput docLength into resultDocEndend if-- download the document chunkset cursor to busyput GetDoc(resultDocNum, docType, resultChunkType, resultDocStart, ¬resultDocEnd) into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document chunk."¬with "OK"exit to hypercardend if-- put it into our document fieldput docHdl into card field "document"-- put some byte counts onto our document cardput resultDocStart + 1 into card field "start_byte_count"put resultDocEnd + 1 into card field "end_byte_count"end mouseUpon mouseWithinballoon "Click on this button to go to the next section of this "¬& "document."end mouseWithin</script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>49</left>
            <top>290</top>
            <right>158</right>
            <bottom>310</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>showing_label</name>
        <script></script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>298</left>
            <top>290</top>
            <right>323</right>
            <bottom>310</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>of_label</name>
        <script></script>
    </part>
    <part>
        <id>24</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>158</left>
            <top>290</top>
            <right>224</right>
            <bottom>305</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>start_byte_count</name>
        <script>on mouseWithinballoon "This field shows the start character of the document section "¬& "displayed above."end mouseWithin</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>323</left>
            <top>290</top>
            <right>398</right>
            <bottom>305</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>total_byte_count</name>
        <script>on mouseWithinballoon "This field shows total number of characters in"¬& "the document displayed above."end mouseWithin</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>398</left>
            <top>290</top>
            <right>462</right>
            <bottom>310</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>lines_label</name>
        <script></script>
    </part>
    <part>
        <id>29</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>237</left>
            <top>290</top>
            <right>298</right>
            <bottom>305</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>end_byte_count</name>
        <script>on mouseWithinballoon "This field shows the end character of the document section "¬& "displayed above."end mouseWithin</script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>224</left>
            <top>290</top>
            <right>237</right>
            <bottom>310</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>dash_label</name>
        <script></script>
    </part>
    <part>
        <id>31</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>0</top>
            <right>378</right>
            <bottom>23</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>view_document_label</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>18</id>
        <text>Document</text>
    </content>
    <content>
        <layer>card</layer>
        <id>21</id>
        <text>Showing characters:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>23</id>
        <text>of:</text>
    </content>
    <content>
        <layer>card</layer>
        <id>27</id>
        <text>characters</text>
    </content>
    <content>
        <layer>card</layer>
        <id>30</id>
        <text>-</text>
    </content>
    <content>
        <layer>card</layer>
        <id>31</id>
        <text>View Document</text>
    </content>
    <name>document</name>
    <script>on initializeCardput empty into card field "document" of card "document"put empty into card field "start_byte_count" of card "document"put empty into card field "end_byte_count" of card "document"put empty into card field "total_byte_count" of card "document"end initializeCard</script>
</card>


card_3875.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3875</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4099.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>110</top>
            <right>258</right>
            <bottom>168</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>sources</name>
        <script>on mouseDown-- select/unselect a sourceput value(the clickLine) into dummyif dummy is empty thenset cursor to handexit mouseDownend ifput word 2 of the clickLine into g -- the line number clickedwait until the mouse is upselect emptyif the mouseLoc is not within the rect of methen exit mouseDown-- select/unselect the sourceif character 1 to 2 of line g of card field "sources" = ">>" thenput "   " into character 1 to 2 of line g of card field "sources"elseput ">>" into character 1 to 3 of line g of card field "sources"end ifend mouseDownon mouseWithinballoon "This field contains the wais sources, click on a source "¬&" to select it or deselected it. " & return & "Selected sources "¬& "have the symbol '>>' next to their name."end mouseWithin</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>6</left>
            <top>47</top>
            <right>507</right>
            <bottom>79</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>query</name>
        <script>on returnInFieldsend mouseUp to button "Run Search"end returnInFieldon mouseWithinballoon "Enter your query in this field."end mouseWithin</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>195</top>
            <right>507</right>
            <bottom>307</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>results</name>
        <script>on mouseUp-- answer "You need to select an action such as 'View' or 'Save' "&¬--"before applying it to a document headline." with "OK"if the optionKey is down thensend mouseUp to card button "Save"elsesend mouseUp to card button "View"end ifpass mouseUpend mouseUpon mouseWithinballoon "This field contains the document headlines returned from a "¬&" search. " & return & "To view or save a document, click the  "¬& "'view' or 'save' button, then click on the entry, alternatively "¬& "you may click on the document to view it, or 'option'-click to "¬& "save it."end mouseWithin</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>262</left>
            <top>110</top>
            <right>507</right>
            <bottom>168</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>feedback</name>
        <script>on mouseUpAnswer "You need to select an action before applying to a relevance feedback entry" with "OK"end mouseUpon mouseWithinballoon "This field contains the relevance feedback entries."end mouseWithin</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>438</left>
            <top>29</top>
            <right>499</right>
            <bottom>43</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Run Search</name>
        <script>---------------------------------------------------------on mouseUp-- run the query-- first check to see if there are any sources selected-- then request opening the selected sources-- then submit the query-- then retrieve the results-- wais sources folderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- document headline rangeglobal docHeadlineRange-- document count global ( for current query )global docCount-- current document number globalglobal resultDocNum-- open sourcesglobal openSources-- first close all the open sources that are not longer selectedcloseOpenSources-- then check to see if there are any open sourcesif sourceCount() = 0 thenput empty into openSourcesanswer "There are no selected sources against which to run the query, you need to select at least one source by clicking on it."exit mouseUpend if-- open the sources that have been newly selectedopenSources-- do a second check to make sure that we opened all the sourcesif openSources is empty thenanswer "There are no open sources against which to run the query."exit mouseUpend if-- fire off our queryput card field "query" into queryTextput SubmitQuery(queryText) into waisError-- clear out the results fieldput empty into card field "results"put empty into results-- check to see if our search could be completedif waisError ≠ 0 thenanswer "The search could not be correctly completed " with "OK"exit mouseUpend if-- get the number of documents returnedput GetDocCount() into waisErrorif waisError ≠ 0 thenanswer "Could not read the document count" with "OK"exit mouseUpend ifif docCount = 0 thenanswer "No headlines where returned" with "OK"exit mouseUpend if-- range retrieval ( 1 - true, 0 - false )-- if range is 1, we get the headlines is ranges-- otherwise we get them one at a timeput 1 into rangeif range = 0 then-- cycle through all the documents and retrieve the document-- information headline, retain the score and the headlinerepeat with i = 0 to docCount -1set cursor to busyput ReadQueryResult(i) into waisErrorif waisError ≠ 0 thenanswer "Could not read a headline, should I continue?" with "OK" or "Cancel"if it is "Cancel" thenexit mouseUpend ifend ifput results & docScore&"  "&docHeadline & return into resultsend repeatelse-- get the headline range - can get up to 50 headline in one goset cursor to busyput ReadQueryResultRange(0,docCount -1) into waisErrorif waisError ≠ 0 thenanswer "Could not read the headlines." with "OK" or "Cancel"if it is "Cancel" thenexit mouseUpend ifend ifput docHeadlineRange into resultsend if-- put the results in our results fieldput results into card field "results"-- get the number of documents returnedput GetDocCount() into waisErrorend mouseUp---------------------------------------------------------on closeOpenSources-- this function closes the currently opened sources that-- are no longer selected-- source globals (used for reading source files)global siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal description-- open sourcesglobal openSources-- wais sources folderglobal WaisSourcesFolderrepeat with i = 1 to the number of lines of card field "sources"-- get the name of an unselected sourceget line i of card field "sources"if character 1 to 3 of it = "   " thenput character 4 to ( the length of it ) of it into sourceName-- if it is then we close itif sourceName is in openSources thenput WaisSourcesFolder&":"&sourceName&".src" into sourceName-- parse the source fileput parseSourceFile(sourceName) into waisError-- check to see if we need to pass through a firewallif the hilite of button "Firewall" of card "edit_preferences"¬is true thenput databaseName&"@"&siteName&":"&sitePort into databaseNameif card field "ip_name" of card "edit_preferences" is not empty thenput card field "ip_name" of card "edit_preferences" into siteNameput card field "tcp_port" of card "edit_preferences" into sitePortelseput empty into siteNameput card field "ip_address" of card "edit_preferences" into siteAddressput card field "tcp_port" of card "edit_preferences" into sitePortend ifend if-- close the sourceput CloseWaisSource(databaseName , siteName, sitePort) ¬into waisErrorend ifend ifend repeat-- close all sources that have been removed from the listrepeat with i = 1 to the number of lines of openSourcesset cursor to busyput line i of openSources into sourceName-- if we cannot find it in the list of sources, we close itif sourceName is not in card field "sources" thenput WaisSourcesFolder&":"&sourceName&".src" into sourceNameput parseSourceFile(sourceName) into waisErrorput CloseWaisSource(databaseName , siteName, sitePort) ¬into waisErrorend ifend repeat-- change openSources to include only the names of the-- sources that are currently openput empty into tOpenSourcesrepeat with i = 1 to the number of lines of openSourcesset cursor to busyput line i of openSources into sourceName-- only include the name of sources which are still openif ">>"&sourceName is in card field "sources" thenput tOpenSources & sourceName & return into tOpenSourcesend ifend repeatput tOpenSources into openSourcesend closeOpenSources---------------------------------------------------------function sourceCount-- counts the number of open sourcesput empty into sourceCountrepeat with i = 1 to the number of lines of card field "sources"set cursor to busyget line i of card field "sources"if character 1 to 2 of it = ">>" thenput sourceCount + 1 into sourceCountend ifend repeatreturn sourceCountend sourceCount---------------------------------------------------------on openSources-- cycle through all the sources and open the selected-- sources-- source globals (used for reading source files)global siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal description-- open sourcesglobal openSources-- wais sources folderglobal WaisSourcesFolderrepeat with i = 1 to the number of lines of card field "sources"set cursor to busyget line i of card field "sources"if character 1 to 2 of it = ">>" thenput character 3 to ( the length of it ) of it into sourceName-- check to see if it is currently open-- and flag it if it is already openif sourceName is in openSources thenput 1 into alreadyOpenelseput 0 into alreadyOpenend if-- the source is not open so we need to open itif alreadyOpen = 0 thenput WaisSourcesFolder&":"&sourceName&".src" into tSourceName-- check to see if the source file exists-- give the user the option of bailing outif there is a file tSourceName then-- parse the source fileput parseSourceFile(tSourceName) into waisError-- check to see if we need to pass through a firewallif the hilite of button "Firewall" of card "edit_preferences" is true thenif siteName is not empty thenput databaseName&"@"&siteName&":"&sitePort into databaseNameelseput databaseName&"@"&siteIP&":"&sitePort into databaseNameend ifif card field "ip_name" of card "edit_preferences" is not empty thenput card field "ip_name" of card "edit_preferences" into siteNameput card field "tcp_port" of card "edit_preferences" into sitePortelseput card field "ip_address" of card "edit_preferences" into siteAddressput card field "tcp_port" of card "edit_preferences" into sitePortend ifend if-- open the sourceput OpenWaisSource(databaseName ,databaseMaxDocNum, siteName,¬siteIP,sitePort) into waisError-- if the source could not be opened then give the-- user the chance to bail out otherwise we update the-- openSources globalif waisError ≠ 0 thenanswer "The source " & databaseName & " could not be opened, shall I proceed with with the query?"¬with "OK" or "Cancel"if it is "Cancel" thenexit openSourcesend ifelseput openSources & sourceName & return into openSourcesend ifelseanswer "The source file for "&sourceName&" could not be found, it was not in the sources folder, shall I proceed with the query?" ¬with "OK" or "Cancel"if it is "Cancel" thenexit openSourcesend ifend ifend ifend ifend repeatend openSources---------------------------------------------------------on mouseWithinballoon "Click on this button to search the selected sources."end mouseWithin---------------------------------------------------------</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>141</left>
            <top>92</top>
            <right>191</right>
            <bottom>106</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Select All</name>
        <script>on mouseUp-- mark all the sources as selectedput card field "sources" into newSourcesrepeat with i = 1 to the number of lines of newSourcesset cursor to busyget line i of card field "sources"if char 1 to 3 of it = "   " thenput ">>" into char 1 to 3 of line i of newSourcesend ifend repeatput newSources into card field "sources"end mouseUpon mouseWithinballoon "Click on this button to select all the sources in the "¬& "sources list."end mouseWithin</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>193</left>
            <top>92</top>
            <right>252</right>
            <bottom>106</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Unselect all</name>
        <script>on mouseUp-- unselect all the sourcesput card field "sources" into newSourcesrepeat with i = 1 to the number of lines of newSourcesset cursor to busyget line i of card field "sources"if character 1 to 2 of it = ">>" thenput "   " into character 1 to 2 of line i of newSourcesend ifend repeatput newSources into card field "sources"end mouseUpon mouseWithinballoon "Click on this button to deselect all the sources in the "¬& "sources list."end mouseWithin</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>99</left>
            <top>92</top>
            <right>139</right>
            <bottom>106</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Remove</name>
        <script>on mouseUp-- this removes the source pointed toset hilite of me to trueif cd fld "sources" is empty thenset the hilite of me to falseexit mouseUpend ifdisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of cd field "sources" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "sources" thenset the hilite of me to falseexit mouseUpend ifput the clickLine into lineClickedput value(lineClicked) into sourceNameif sourceName = empty thenset the hilite of me to falseexit mouseUpend ifif character 1 to 2 of sourceName = ">>" thenput character 3 to ( the length of sourceName ) of sourceName into sourceNameelseput character 4 to ( the length of sourceName ) of sourceName into sourceNameend if-- confirm deletion of the selected itemif the optionKey is not down thenanswer "Are you sure that you want to remove the source '"&sourceName&"' from the list?" with "Cancel" or "OK" -- ∆if it ≠ "OK" thenselect emptyset the hilite of me to falseexit mouseUpend ifend ifdelete lineClicked -- delete itset hilite of me to falseend mouseUpon mouseWithinballoon "Click on this button to remove a wais source from the "¬& "sources list." & return & "To remove an entry, click on this "¬& "button, then click on the entry in the sources list."end mouseWithin</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>92</top>
            <right>499</right>
            <bottom>106</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Remove</name>
        <script>on mouseUp-- this removes and RF entryset hilite of me to trueif cd fld "feedback" is empty thenset the hilite of me to falseexit mouseUpend ifdisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of cd field "feedback" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "feedback" thenset the hilite of me to falseexit mouseUpend ifput the clickLine into lineClickedput value(lineClicked) into dummyif dummy = empty thenset the hilite of me to falseexit mouseUpend if-- confirm deletion of the selected itemif the optionKey is not down thenanswer "Are you sure that you want to remove the relevance feedback entry from the list?" with "Cancel" or "OK" -- ∆if it ≠ "OK" thenselect emptyset the hilite of me to falseexit mouseUpend ifend ifput the first word of dummy into relEntryNumput RelFeedbackDel(relEntryNum) into waisErrordelete lineClicked -- delete it-- check to see if the card field 'feedback' is empty-- if it is clear out the RF array just to be sureif card field "feedback" is empty thenput RelFeedbackClear() into waisErrorend ifset hilite of me to falseend mouseUpon mouseWithinballoon "Click on this button to remove an entry from the relevance "¬& "feedback list." & return & "To remove an entry, click on this "¬& "button, then click on the entry in the relevance feedback list."end mouseWithin</script>
    </part>
    <part>
        <id>22</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>90</top>
            <right>70</right>
            <bottom>106</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>source_label</name>
        <script></script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>6</left>
            <top>28</top>
            <right>59</right>
            <bottom>45</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>query_label</name>
        <script></script>
    </part>
    <part>
        <id>24</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>264</left>
            <top>91</top>
            <right>402</right>
            <bottom>108</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>relevance_feedback_label</name>
        <script></script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>176</top>
            <right>64</right>
            <bottom>193</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>results_label</name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>0</top>
            <right>378</right>
            <bottom>23</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>search_label</name>
        <script></script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>73</left>
            <top>92</top>
            <right>97</right>
            <bottom>106</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Add</name>
        <script>on mouseUp-- add a new source name to the list-- get the source file name-- check to see if this source is not already in the listput card field "wais-sources" of card "edit_preferences"¬into waisSources-- we can open either text or WAIStation format-- source filesput files(waisSources,"TEXT,WSRC") into waisSourceListget showList(waisSourceList,"Select the sources to add:",¬true,true,"Add,Cancel",0)-- if the user cancelled, we exitif line 1 of it = "Cancel" thenexit mouseUpend if-- get the returned selection listput line 2 of it into itemList-- extract the selected sourcesput 1 into irepeat foreverset the itemDelimiter to ","put item i of itemList into itemNumberput line itemNumber of waisSourceList into sourceNameif sourceName is not empty thenput card field "sources" into sourceListput addSource(sourceName,sourceList) into card field "sources"elseexit repeatend ifput (i + 1) into iend repeatend mouseUpon mouseWithinballoon "Click on this button to add wais sources to the sources list."end mouseWithin</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>350</left>
            <top>177</top>
            <right>386</right>
            <bottom>191</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>View</name>
        <script>---------------------------------------------------------on mouseUp-- select a result for viewing-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- document countglobal docCountset hilite of me to trueif cd fld "results" is empty thenset the hilite of me to falseexit mouseUpend if-- only look for a second click if we are clicking on the-- buttonif the clickLoc is within rect of me thendisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of cd field "results" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "results" thenset the hilite of me to falseexit mouseUpend ifend ifget the clickLineput it into myClickLineselect itput ( word 2 of myClickLine ) - 1 into resultDocNumset hilite of me to false-- no document headline in this rowif resultDocNum >= docCount thenanswer "Not a valid document"exit mouseUpend if-- get document headline informationput ReadQueryResult(resultDocNum) into waisErrorif waisError ≠ 0 thenanswer "An error occured while reading this document headline."¬with "OK"exit mouseUpend if-- if there is more than one document type put up the list pickerput the number of lines of docType into docTypeNumif docTypeNum > 1 thenget showList(docType,"Choose the document type to view:",¬false,false,"Select,Cancel",1)--get showList(docType,"Choose the document type to view:",¬--false,false,"Select,Cancel^,Custom",1)-- if the user cancelled, we exitif line 1 of it = "Cancel" thenexit mouseUpend if-- if the user wants another type, put up a box,-- else extract the selected document typeif line 1 of it = "Custom" thenput line 1 of docType into docTypeask "Enter the document type you wish to view:" with docType-- if the user cancelled, we exit, else we get the-- document typeif the result is "Cancel" thenexit mouseUpelseput it into docTypeend ifelse-- extract the selected document typeput line 2 of it into docTypeNumput line docTypeNum of docType into docTypeend ifend if-- download the document-- first see if we can find the document type in our application summaryput card field "application_summary" of card "edit_applications" ¬into applicationSummaryput empty into applicationNameput empty into fileTypeput 0 into macbinaryset the itemDelimiter to tabrepeat with i = 1 to the number of lines of applicationSummaryget line i of applicationSummaryif the first item of it = docType thenput the second item of it into applicationNameput the third item of it into fileTypeput the fourth item of it into macbinaryexit repeatend ifend repeat-- check to see if we got a file type, default to '????'if fileType is empty thenput "????" into fileTypeend if-- check to see if the application is still there?if there is not a file applicationName and ¬applicationName is not empty thenset the itemDelimiter to ":"answer "Cannot find " & the last item of applicationNameput empty into applicationNameend if-- document type not listed in the application summary,-- see if we can handle it using one of our internal handlers,-- otherwise just ask the user if they want to save itif applicationName is empty thenif docType = "TEXT" or docType = "WCAT" thenput displayTEXT() into waisErrorexit mouseUpelse if docType = "WSRC" thenput displayWSRC() into waisErrorexit mouseUpelse if docType = "PICT" thenput displayPICT() into waisErrorexit mouseUpelse if docType = "MBIN" thenput displayMBIN() into waisErrorexit mouseUpelse if docType = "JFIF" or docType = "JPEG" or docType = "JFIF-TBNL" thenput displayJFIF() into waisErrorexit mouseUpelse if docType = "TIFF" thenput displayTIFF() into waisErrorexit mouseUpelse if docType = "GIF" thenput displayGIF() into waisErrorexit mouseUpelseanswer "The "&docType&" document type cannot be viewed, "&¬"do you wish to save it?" with "Cancel" or "OK"-- did the user cancel savingif it = "Cancel" thenexit mouseUpend ifend ifend if-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document ("&docType&"):" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenexit mouseUpend if-- download the documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????" , fileType)¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document."¬with "OK"exit mouseUpend if-- Unbinify it if neededif macbinary = 1 then-- rename the file to a temporary fileput documentName & ".t" into documentNameBinput HCRenameFile(documentName,documentNameBin) into waisErrorput HCMacUnBin(documentNameBin, documentName, "????", fileType)¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while convert the document from MacBinary format."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisErrorend if-- display the document with the selected applicationif applicationName is not empty thenopen documentName with applicationNameend ifend mouseUp---------------------------------------------------------function displayTEXT-- download the first 30000 bytes (if possible) of the document and-- go to the document card-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- set up our document chunk parametersput 1 into resultChunkTypeput 0 into resultDocStartput resultDocStart + 30000 into resultDocEnd-- check to see if we dont go beyond the end of the document,-- and that there are any lines, sometimes the server does-- not fill in this fieldif docLength < resultDocEnd and docLength > 0 thenput docLength into resultDocEndend if-- download the document chunkset cursor to busyput GetDoc(resultDocNum , docType, resultChunkType, resultDocStart, ¬resultDocEnd) into waisError--put GetDocByID(docDatabaseName, docSiteName, docSiteIP, docSitePort, ¬--docID, docType, resultChunkType, resultDocStart, ¬--resultDocEnd) into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document."¬with "OK"return waisErrorend if-- put it into our document fieldput docHdl into card field "document" of card "document"-- put some byte counts onto our document cardput resultDocStart+1 into card field "start_byte_count" of card "document"put resultDocEnd+1 into card field "end_byte_count" of card "document"put docLength+1 into card field "total_byte_count" of card "document"-- reajust our document fieldset the scroll of card field "document" of card "document" to 0-- and go to our document cardgo to card "document"end displayTEXT---------------------------------------------------------function displayWSRC-- download the source, save it in the sources folder and open it-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- source file globalsglobal siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal description-- create the temporary file name for the pictureput WaisSourcesFolder & ":" &"temp.src" into documentName-- delete it if it existsif there is a file documentName thenput HCDelFile(documentName) into waisErrorend if-- download the documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "TEXT")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the source."¬with "OK"return waisErrorend if-- parse the source file and display it on the "edit_sources" cardput parseSourceFile(documentName) into waisErrorput siteName into card field "ip-name" of card "edit_sources"put siteIP into card field "ip-address" of card "edit_sources"put sitePort into card field "tcp-port" of card "edit_sources"put maintainer into card field "maintainer" of card "edit_sources"put databaseName into card field "database-name" of card "edit_sources"put databaseMaxDocNum into card field "num-docs-to-request" of card "edit_sources"put confidence into card field "confidence" of card "edit_sources"put description into card field "description" of card "edit_sources"put docHeadline into card field "source-name"  of card "edit_sources"-- delete it if it existsif there is a file documentName thenput HCDelFile(documentName) into waisErrorend if-- finally go to the card "edit_sources"go to card "edit_sources"end displayWSRC---------------------------------------------------------function displayPICT-- download the picture display it-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- current document number globalglobal resultDocNum-- PICT datatype - download it, save it and display it-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .bin to the end of the file nameput documentName & ".bin" into documentNameBin-- download the document to a fileset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameBin, "????", "MBIN")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- Unbinify itput HCMacUnBin(documentNameBin, documentName, "????", "PICT")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while decoding the picture."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisError-- display it as a picturepicture documentName,File,zoom,false,0set the itemDelimiter to ":"put the last item of documentName into documentNameset the globalloc of window documentName to deepestset visible of window documentName to trueend displayPICT---------------------------------------------------------function displayMBIN-- prompt the user for a file name and download the mac binary to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .bin to the end of the file nameput documentName & ".bin" into documentNameBin-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameBin, "????", "MBIN")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- Unbinify itput HCMacUnBin(documentNameBin, documentName, "", "")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while decoding the document."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisErrorend displayMBIN---------------------------------------------------------function displayJFIF-- download the picture display it-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- automatic or notglobal automatic-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- current document number globalglobal resultDocNum-- JFIF datatype - download it, save it and display it-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save JFIF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .jfif to the end of the file nameput documentName & ".jfif" into documentNameJFIFset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameJFIF, "ppxi", "JFIF")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- convert it from a JFIF file to a pict filejfiftopict documentNameJFIF,File,documentName,trueput the result into waisErrorif waisError is empty thenput 0 into waisErrorend ifif waisError ≠ 0 thenanswer "An error occured while decoding the picture."¬with "OK"put waisError into message boxreturn waisErrorend if-- delete the JFIF fileput HCDelFile(documentNameJFIF) into waisError-- And display it as a picturepicture documentName,File,zoom,false,0set the itemDelimiter to ":"put the last item of documentName into documentNameset the globalloc of window documentName to deepestset visible of window documentName to trueend displayJFIF---------------------------------------------------------function displayTIFF-- download the picture display it-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- automatic or notglobal automatic-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- current document number globalglobal resultDocNum-- TIFF datatype - download it, save it and display it-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save TIFF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- check if user canceled the operationif documentName is empty thenreturn waisErrorend ifset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "TIFF")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- Add display it as a pictureTIFFWindow documentNameend displayTIFF---------------------------------------------------------function displayGIF-- download the picture display it-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- automatic or notglobal automatic-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- current document number globalglobal resultDocNum-- GIF datatype - download it, save it and display it-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save GIF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- check if user canceled the operationif documentName is empty thenreturn waisErrorend ifset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "GIF ")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- display it as a pictureput dispGIF(documentName, true, 0, true, 0) into resultif hasColorQD() = true thenput resetPalette() into junkend ifend displayGIF---------------------------------------------------------on mouseWithinballoon "Click on this button to view a document in the "¬& "results list." & return & "To view an document, click on this "¬& "button, then click on the headline in the results list."end mouseWithin---------------------------------------------------------</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>388</left>
            <top>177</top>
            <right>422</right>
            <bottom>191</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Save</name>
        <script>---------------------------------------------------------on mouseUp-- select a result for saving-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- document countglobal docCountset hilite of me to trueif cd fld "results" is empty thenset the hilite of me to falseexit mouseUpend if-- look for a second clickif the clickLoc is within the rect of me thendisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of cd field "results" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "results" thenset the hilite of me to falseexit mouseUpend ifend ifget the clickLineput it into myClickLineselect itput ( word 2 of myClickLine ) - 1 into resultDocNumset hilite of me to false-- no document headline in this rowif resultDocNum >= docCount thenanswer "Not a valid document"exit mouseUpend if-- get document headline informationput ReadQueryResult(resultDocNum) into waisErrorif waisError ≠ 0 thenanswer "An error occured while reading this document headline."¬with "OK"exit mouseUpend if-- if there is more than one document type put up the list pickerput the number of lines of docType into docTypeNumif docTypeNum > 1 thenget showList(docType,"Choose the document type to save:",¬false,false,"Select,Cancel",1)--get showList(docType,"Choose the document type to save:",¬--false,false,"Select,Cancel^,Custom",1)-- if the user cancelled, we exitif line 1 of it = "Cancel" thenexit mouseUpend if-- if the user wants another type, put up a box,-- else extract the selected document typeif line 1 of it = "Custom" thenput line 1 of docType into docTypeask "Enter the document type you wish to save:" with docType-- if the user cancelled, we exit, else we get the-- document typeif the result is "Cancel" thenexit mouseUpelseput it into docTypeend ifelse-- extract the selected document typeput line 2 of it into docTypeNumput line docTypeNum of docType into docTypeend ifend if-- download the document-- first see if we can find the document type in our application summaryput card field "application_summary" of card "edit_applications" ¬into applicationSummaryput empty into fileTypeput 0 into macbinaryset the itemDelimiter to tabrepeat with i = 1 to the number of lines of applicationSummaryget line i of applicationSummaryif the first item of it = docType thenput the third item of it into fileTypeput the fourth item of it into macbinaryexit repeatend ifend repeat-- document type not listed in the application summary,-- see if we can handle it using one of our internal handlers,-- otherwise we give it a '????' file typeif fileType is empty thenif docType = "TEXT" or docType = "WCAT" thenput downloadTEXT() into waisErrorexit mouseUpelse if docType = "WSRC" thenput downloadWSRC() into waisErrorexit mouseUpelse if docType = "PICT" thenput downloadPICT() into waisErrorexit mouseUpelse if docType = "MBIN" thenput downloadMBIN() into waisErrorexit mouseUpelse if docType = "JFIF" or docType = "JPEG" or docType = "JFIF-TBNL" thenput downloadJFIF() into waisErrorexit mouseUpelse if docType = "TIFF" thenput downloadTIFF() into waisErrorexit mouseUpelse if docType = "GIF" thenput downloadGIF() into waisErrorexit mouseUpelse-- set the default file typeput "????" into fileTypeend ifend if-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document ("&docType&"):" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenexit mouseUpend if-- download the documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????" , fileType)¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document."¬with "OK"exit mouseUpend if-- Unbinify it if neededif macbinary = 1 then-- rename the file to a temporary fileput documentName & ".t" into documentNameBinput HCRenameFile(documentName,documentNameBin) into waisErrorput HCMacUnBin(documentNameBin, documentName, "????", fileType)¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while convert the document from MacBinary format."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisErrorend ifend mouseUp---------------------------------------------------------function downloadTEXT-- prompt the user for a file name and download the document to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "TEXT")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the document."¬with "OK"return waisErrorend ifend downloadTEXT---------------------------------------------------------function downloadWSRC-- download the source, save it in the sources folder and add it to the-- list of available sources-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentName-- ask for the source file nameask "Save source:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- prepend source folderput WaisSourcesFolder & ":" & documentName into documentName-- check for trailing .srcset the itemDelimiter to "."if the last item of documentName ≠ "src" thenput documentName & ".src" into documentNameend if-- check to see if the source file already existsif there is a file documentName thenset the itemDelimiter to ":"answer "Replace existing " & last item of documentName ¬with "OK" or "Cancel"if it is "Cancel" thenreturn waisErrorend ifend if-- download the documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "TEXT")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the source."¬with "OK"return waisErrorend if-- add it to the sources listanswer "Add this source to the source list?" with "No","Yes"if it is "Yes" thenput card field "sources" into sourceListput addSource(documentName,sourceList) into card field "sources"end ifend downloadWSRC---------------------------------------------------------function downloadPICT-- prompt the user for a file name and download the picture to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Picture:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .bin to the end of the file nameput documentName & ".bin" into documentNameBin-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameBin, "????", "MBIN")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- Unbinify itput HCMacUnBin(documentNameBin, documentName, "????", "PICT")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while decoding the picture."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisError-- ask the user if he/she wants to see the picture nowanswer "Do you want to look at it now?" with "No" or "Yes"if it = "Yes" then-- display it as a picturepicture documentName,File,zoom,false,0set the itemDelimiter to ":"put the last item of documentName into documentNameset the globalloc of window documentName to deepestset visible of window documentName to trueend ifend downloadPICT---------------------------------------------------------function downloadMBIN-- prompt the user for a file name and download the mac binary to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docSitePortglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .bin to the end of the file nameput documentName & ".bin" into documentNameBin-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameBin, "????", "MBIN")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- Unbinify itput HCMacUnBin(documentNameBin, documentName, "", "")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while decoding the document."¬with "OK"return waisErrorend if-- delete the mac binary fileput HCDelFile(documentNameBin) into waisErrorend downloadMBIN---------------------------------------------------------function downloadJFIF-- prompt the user for a file name and download the picture to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save JFIF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- append a .bin to the end of the file nameput documentName & ".jfif" into documentNameJFIF-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentNameJFIF, "ppxi", "JFIF")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- convert it from a JFIF file to a pict filejfiftopict documentNameJFIF,File,documentName,trueput the result into waisErrorif waisError is empty thenput 0 into waisErrorend ifif waisError ≠ 0 thenanswer "An error occured while decoding the picture."¬with "OK"put waisError into message boxreturn waisErrorend if-- delete the JFIF fileput HCDelFile(documentNameJFIF) into waisError-- ask the user if he/she wants to see the picture nowanswer "Do you want to look at it now?" with "No" or "Yes"if it = "Yes" then-- display it as a picturepicture documentName,File,zoom,false,0set the itemDelimiter to ":"put the last item of documentName into documentNameset the globalloc of window documentName to deepestset visible of window documentName to trueend ifend downloadJFIF---------------------------------------------------------function downloadTIFF-- prompt the user for a file name and download the picture to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save TIFF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "TIFF")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- ask the user if he/she wants to see the picture nowanswer "Do you want to look at it now?" with "No" or "Yes"if it = "Yes" then-- display it as a pictureTIFFWindow documentNameend ifend downloadTIFF---------------------------------------------------------function downloadGIF-- prompt the user for a file name and download the picture to that-- file-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- ask for the file name to save the document intoput niceFileName(docHeadline) into documentNameask file "Save GIF Document:" with documentNameput it into documentName-- check if user canceled the operationif documentName is empty thenreturn waisErrorend if-- download thew documentset cursor to busyput GetDocToFile(resultDocNum, docType, documentName, "????", "GIF")¬into waisErrorif waisError ≠ 0 thenanswer "An error occured while downloading the picture."¬with "OK"return waisErrorend if-- ask the user if he/she wants to see the picture nowanswer "Do you want to look at it now?" with "No" or "Yes"if it = "Yes" then-- display it as a pictureput dispGIF(documentName, true, 0, true, 0) into resultif hasColorQD() = true thenput resetPalette() into junkend ifend ifend downloadGIF---------------------------------------------------------on mouseWithinballoon "Click on this button to save a document in the "¬& "results list." & return & "To save an document, click on this "¬& "button, then click on the headline in the results list."end mouseWithin---------------------------------------------------------</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>424</left>
            <top>177</top>
            <right>501</right>
            <bottom>191</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Add Document</name>
        <script>on mouseUp-- select a result for viewing-- #define CT_document  0-- #define CT_byte      1-- #define CT_line      2-- #define CT_paragraph 3-- wais folderglobal WaisDocumentsFolderglobal WaisSourcesFolder-- document headline information globals ( per document )global docDatabaseNameglobal docSiteNameglobal docSiteIPglobal docScoreglobal docTypeglobal docLinesglobal docLengthglobal docBestMatchglobal docIDglobal docHeadline-- current document text handle and sizeglobal docHdlglobal docHdlSize-- current document number globalglobal resultDocNum-- rel feedback entry numglobal relEntryNumset hilite of me to trueif cd fld "results" is empty thenset the hilite of me to falseexit mouseUpend ifdisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of cd field "results" thenset cursor to handelseset cursor to plusend ifend repeatallowInterruptionif the clickLoc is not within rect of cd field "results" thenset the hilite of me to falseexit mouseUpend ifput ( word 2 of the clickLine ) - 1 into resultDocNumset hilite of me to false-- no document headline in this rowif resultDocNum >= docCount thenanswer "Not a valid document"exit mouseUpend if-- get document headline informationput ReadQueryResult(resultDocNum) into waisErrorif waisError ≠ 0 thenanswer "An error occured while reading this document headline."¬with "OK"exit mouseUpend if-- set the chunk to CT_documentput 0 into resultChunkTypeput 0 into startByteput 0 into endByte-- add the entry to the RF arrayput RelFeedbackAdd(resultDocNum, docType, resultChunkType, startByte, ¬endByte) into waisErrorif waisError ≠ 0 thenanswer "An error occured while adding the document as relevance feedback."¬with "OK"exit mouseUpend if-- prepare the RFEntry for the RF fieldput char 1 to 20 of docHeadline into RFEntryput relEntryNum & " " & RFEntry into RFEntryput RFEntry & "[doc]" & return into RFEntryput card field "feedback"into dummyput dummy & RFEntry into RFEntryput RFEntry into card field "feedback"end mouseUpon mouseWithinballoon "Click on this button to add a document to the "¬& "relevance feedback entries." & return&& "To add a document, "¬& "click on this button, then click on the headline in the results list."end mouseWithin</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>364</left>
            <top>29</top>
            <right>436</right>
            <bottom>43</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Save Question</name>
        <script>---------------------------------------------------------on mouseUp-- save the question-- wais folders to store sources, documents and questionsglobal WaisSourcesFolderglobal WaisDocumentsFolderglobal WaisQuestionsFolder-- ask for the question file nameask file "Save question:"put it into questionNameif questionName is empty thenexit mouseUpend ifset the itemDelimiter to ":"set the cursor to busyopen file questionNamewrite "(:question" & return to file questionNamewrite " :version" & space & "2" & return to file questionNamewrite " :seed-words" & space & quote & card field "query" & quote¬& return to file questionNamewrite " :relevant-documents" & return to file questionNamewrite " ()" & return to file questionNamewrite " :sourcepath" & space & quote & WaisSourcesFolder & quote¬& return to file questionNamewrite " :sources" & space & return to file questionNamewrite "( "  to file questionNamerepeat with i = 1 to the number of lines of card field "sources"write " (:source-id" &  return to file questionNameput line i of card field "sources" into sourceNamewrite "  :filename" & space & quote & sourceName & quote¬& return to file questionNamewrite "  )" &  return to file questionNameend repeatwrite "  )" &  return to file questionNamewrite ")" & return to file questionNameclose file questionNameend mouseUp---------------------------------------------------------on mouseWithinballoon "Click on this button to save the question."end mouseWithin---------------------------------------------------------</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>290</left>
            <top>29</top>
            <right>362</right>
            <bottom>43</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Open Question</name>
        <script>---------------------------------------------------------on mouseUp-- this handler opens a question---- first it asks for a file name---- then it cycles through reading the file-- and parsing it---- this is really sluggish and speed needs to be-- improvedglobal seedWordsglobal questionSourcesanswer "Are you sure you want to loose the current question?"¬with "OK" or "Cancel"if it is "Cancel" thenexit mouseUpend ifanswer file "Open Question:" of type "TEXT" or "WQST"put it into questionNameif questionName is not empty thenset the itemDelimiter to ":"put parseQuestionFile(questionName) into waisErrorput seedWords into card field "query"put questionSources into card field "sources"-- clear out the RF arrayif card field "feedback" is not empty thenput RelFeedbackClear() into waisErrorput empty into card field "feedback"end if-- clear out the resultsput empty into card field "results"end ifend mouseUp---------------------------------------------------------on mouseWithinballoon "Click on this button to load an existing question into "¬& "the fields below."end mouseWithin---------------------------------------------------------</script>
    </part>
    <content>
        <layer>card</layer>
        <id>22</id>
        <text>Sources</text>
    </content>
    <content>
        <layer>card</layer>
        <id>23</id>
        <text>Query</text>
    </content>
    <content>
        <layer>card</layer>
        <id>24</id>
        <text>Relevance Feedback</text>
    </content>
    <content>
        <layer>card</layer>
        <id>25</id>
        <text>Results</text>
    </content>
    <content>
        <layer>card</layer>
        <id>26</id>
        <text>Search Sources</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>   directory-of-servers</text>
    </content>
    <name>query</name>
    <script>on initializeCardput empty into card field "query" of card "query"put empty into card field "feedback" of card "query"put empty into card field "results" of card "query"end initializeCard</script>
</card>


card_5382.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>5382</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5663.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>136</left>
            <top>85</top>
            <right>337</right>
            <bottom>126</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <name>Query Databases</name>
        <script>on mouseUpgo to card "query"end mouseUpon mouseWithinballoon "Click on this button to query wais sources."end mouseWithin</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>137</left>
            <top>138</top>
            <right>338</right>
            <bottom>179</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <name>Edit Sources</name>
        <script>on mouseUpgo to card "edit_sources"end mouseUpon mouseWithinballoon "Click on this button to edit wais sources."end mouseWithin</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>137</left>
            <top>43</top>
            <right>338</right>
            <bottom>66</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>main_menu_label</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>137</left>
            <top>193</top>
            <right>338</right>
            <bottom>234</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <name>Edit Preferences</name>
        <script>on mouseUpgo to card "edit_preferences"end mouseUpon mouseWithinballoon "Click on this button to edit the stack preferences."end mouseWithin</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>137</left>
            <top>247</top>
            <right>338</right>
            <bottom>288</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>bold</textStyle>
        <name>Edit Applications</name>
        <script>on mouseUpgo to card "edit_applications"end mouseUpon mouseWithinballoon "Click on this button to edit the stack applications."end mouseWithin</script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>Main Menu</text>
    </content>
    <name>menu</name>
    <script>on initializeCardend initializeCard</script>
</card>


card_2955.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2955</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3613.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2583</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>31</left>
            <top>220</top>
            <right>221</right>
            <bottom>300</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>HyperWais Version</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>289</left>
            <top>220</top>
            <right>479</right>
            <bottom>300</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>HyperWais Credits</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>108</left>
            <top>38</top>
            <right>382</right>
            <bottom>69</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>title_label</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>41</left>
            <top>114</top>
            <right>461</right>
            <bottom>174</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>title_label</name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>259</left>
            <top>163</top>
            <right>366</right>
            <bottom>218</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>5418</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>CM</name>
        <script>on mouseWithinrepeat foreverrepeat with i = 1 to 6set the icon of card button "Mac" to item i of ¬"MAC-1,MAC-2,MAC-3,MAC-4,MAC-5,MAC-6"put random(6) into jset the icon of card button "CM" to item j of ¬"CM2-1,CM2-2,CM2-3,CM2-4,CM2-5,CM2-6"if the mouseLoc is not within the rect of me thenexit mouseWithinend ifwait 5 ticksend repeatend repeatend mouseWithin</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>142</left>
            <top>161</top>
            <right>249</right>
            <bottom>218</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>11932</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Mac</name>
        <script>on mouseWithinrepeat foreverrepeat with i = 1 to 6set the icon of card button "Mac" to item i of ¬"MAC-1,MAC-2,MAC-3,MAC-4,MAC-5,MAC-6"put random(6) into jset the icon of card button "CM" to item j of ¬"CM2-1,CM2-2,CM2-3,CM2-4,CM2-5,CM2-6"if the mouseLoc is not within the rect of me thenexit mouseWithinend ifwait 5 ticksend repeatend repeatend mouseWithin</script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>Hypercard: 2.1WAIS: 8-b5System: 7.0/7.0.1/7.1HyperWais: 1.9Wais listener: 1.9</text>
    </content>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>Developed By:François J.M. Schiettecatte(Software Consultant)Helped By:Harry W. Morris(WAIS Inc.)</text>
    </content>
    <content>
        <layer>card</layer>
        <id>5</id>
        <text>HYPERWAIS</text>
    </content>
    <content>
        <layer>card</layer>
        <id>6</id>
        <text>A Hypercard Interface to WAIS </text>
    </content>
    <name>title_screen</name>
    <script>---------------------------------------------------------on mouseUp-- Here we need to go to the menugo to card "menu"end mouseUp---------------------------------------------------------on initializeCardend initializeCard---------------------------------------------------------</script>
</card>